home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / If Monks had Macs....cpt / If Monks had Macs... / Meat & Conversation / background_3253.txt < prev    next >
Text File  |  1992-02-09  |  2KB  |  77 lines
  1. -- background: 3253 from stack: in
  2. -- bmap block id: 3367
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   if mouseV() <10 and mouseH() < 10 then
  9.     show menuBar
  10.     exit mouseUp
  11.   end if
  12.   cleanScreen
  13.   if name of target contains "Card Button" then
  14.     get number of target
  15.     if hilite of cd btn it is false then
  16.       if it ‚⧠20 then
  17.         repeat with i = 1 to 20
  18.           set hilite of cd btn i to false
  19.         end repeat
  20.         play "harpsichord" (60 + it)
  21.         set hilite of target to true
  22.         put short name of target into bg fld "ActionField1"
  23.       end if
  24.       if it ‚â• 21 and it ‚⧠40 then
  25.         repeat with i = 21 to 40
  26.           set hilite of cd btn i to false
  27.         end repeat
  28.         play "harpsichord" (100 - it)
  29.         set hilite of target to true
  30.         put short name of target into bg fld "ActionField2"
  31.       end if
  32.     end if
  33.   end if
  34. end mouseUp
  35.  
  36.  
  37. -- part 2 (field)
  38. -- low flags: 01
  39. -- high flags: 0000
  40. -- rect: left=262 top=296 right=314 bottom=368
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 65535
  44. -- font id: 9
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: ActionField1
  49.  
  50.  
  51. -- part 3 (field)
  52. -- low flags: 01
  53. -- high flags: 0000
  54. -- rect: left=367 top=296 right=314 bottom=484
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 9
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: ActionField2
  63.  
  64.  
  65. -- part 6 (field)
  66. -- low flags: 01
  67. -- high flags: 0002
  68. -- rect: left=27 top=105 right=121 bottom=201
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 9
  73. -- text size: 10
  74. -- style flags: 256
  75. -- line height: 13
  76. -- part name: Place
  77.